home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 031-040 / amok31 / rechner / newmathlib.def < prev    next >
Text File  |  1993-11-04  |  2KB  |  53 lines

  1. (*---------------------------------------------------------------------------
  2.     :Program.    NewMathLib.def
  3.     :Author.     Philippe Gressly and John Bysäth
  4.     :Address.    Näfenhaus, CH-8926 Kappel a/Albis
  5.     :History.    V2.6, Philippe Gressly / John Bysäht, July 89
  6.     :Copyright.  PD or Shareware (I like Shareware better).
  7.     :Language.   Modula-II
  8.     :Translator. M2Amiga v3.2
  9.     :Imports.    RealConversions, NewMathLib
  10.     :Contents.   More Formulas then MathLibLong
  11. ---------------------------------------------------------------------------*)
  12. DEFINITION MODULE NewMathLib;
  13.  
  14. TYPE ArErType = (ArNoEr,         (* Kein Fehler *)
  15.                  ArOverFl,       (* Arithmetischer OverFlow *)
  16.                  ArNDef);        (* Arithmetischer Ausdruck nicht definiert *)
  17.  
  18.  
  19. VAR ArEr: ArErType;
  20.  
  21. (* Die fogenden Proceduren ändern ev. die Variable ArEr ! *)
  22.  
  23. PROCEDURE SQRT(x: LONGREAL): LONGREAL;
  24.  
  25. PROCEDURE EXP(x:  LONGREAL): LONGREAL;
  26. PROCEDURE LN(x:   LONGREAL): LONGREAL;
  27. PROCEDURE LOG(x:LONGREAL): LONGREAL;
  28.  
  29. PROCEDURE SIN(x: LONGREAL): LONGREAL;
  30. PROCEDURE COS(x: LONGREAL): LONGREAL;
  31. PROCEDURE TAN(x: LONGREAL): LONGREAL;
  32. PROCEDURE ARCTAN(x:LONGREAL): LONGREAL;
  33.  
  34. PROCEDURE SINh(x: LONGREAL): LONGREAL;
  35. PROCEDURE COSh(x: LONGREAL): LONGREAL;
  36. PROCEDURE TANh(x: LONGREAL): LONGREAL;
  37. PROCEDURE ARCSINh(x:LONGREAL): LONGREAL;
  38. PROCEDURE ARCCOSh(x:LONGREAL): LONGREAL;
  39. PROCEDURE ARCTANh(x:LONGREAL): LONGREAL;
  40.  
  41. PROCEDURE FACT(x: LONGREAL): LONGREAL;
  42. (* Fakultaet *)
  43.  
  44. PROCEDURE SIGN(x: LONGREAL): LONGREAL;
  45. (* -1.0 IF x < 0.0
  46.     0.0 IF x = 0.0
  47.     1.0 IF x > 0.0
  48.  *)
  49. PROCEDURE DegToRad(x: LONGREAL): LONGREAL;
  50. PROCEDURE RadToDeg(x: LONGREAL): LONGREAL;
  51.  
  52. END NewMathLib.
  53.